﻿Imports BUS
Imports System.Data.OleDb
Public Class DanhSachBenhNhan
    
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_timkiemht.Click

    End Sub

    Private Sub btnTHoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTHoat.Click
        Close()
    End Sub

    Private Sub DanhSachBenhNhan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dt As New DataTable
        Dim hsBus As New BenhNhanBUS()
        dt = hsBus.LayBang()
        dtgv_dsbenhhan.DataSource = dt
    End Sub
End Class